<!DOCTYPE html>
<html>
<body>
<!-- 
Set conexion=Server.CreateObject("ADODB.Connection")
  conexion.ConnectionString="DRIVER={SQL Server};SERVER=UTI-P1-PC27\SS2008R2ESP;UID=sa;PWD=ss26784$;DATABASE=viaspoaesp" 
  conexion.open 
  set commando = createobject("adodb.command")
    commando.activeConnection = conexion
    commando.commandText = "select * from Funcionario where fun_id=?"
    set rs = commando.execute( ,array(194))
    response.write(rs.ActiveConnection)
-->
<script language="vbscript" runat="server">
  


    
Set ConnSquashchaco = Server.CreateObject("ADODB.Connection")
ConnSquashchaco.Open "DRIVER={SQL Server};SERVER=UTI-P1-PC27\SS2008R2ESP;UID=sa;PWD=ss26784$;DATABASE=viaspoaesp"

Dim rsUsuarios
Dim rsUsuarios_cmd
Dim rsUsuarios_numRows

Set rsUsuarios_cmd = Server.CreateObject ("ADODB.Command")
rsUsuarios_cmd.ActiveConnection = ConnSquashchaco
rsUsuarios_cmd.CommandText = "select * from Funcionario where fun_id=194"
rsUsuarios_cmd.Prepared = true
Set rsUsuarios = rsUsuarios_cmd.Execute
response.write(rsUsuarios.RecordCount)
  
</script>
</body>
</html> 